home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LabelMaster 1.0.cpt / LabelMaster 1.0 / background_5214.txt < prev    next >
Text File  |  1990-12-13  |  12KB  |  562 lines
  1. -- background: 5214 from stack: in.0
  2. -- bmap block id: 7186
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.  
  9. end idle
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. -- part 13 (field)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=2 top=102 right=119 bottom=170
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: 
  28. ----- HyperTalk script -----
  29. put field name1 into field spine1
  30.  
  31.  
  32.  
  33. -- part 5 (field)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=0 top=120 right=244 bottom=170
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: 
  45.  
  46.  
  47. -- part 14 (field)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=171 top=102 right=119 bottom=339
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: 
  59.  
  60.  
  61. -- part 9 (field)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=171 top=120 right=247 bottom=340
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 
  73.  
  74.  
  75. -- part 15 (button)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=15 top=270 right=299 bottom=47
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 21700 / 21700
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Home
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual effect iris open
  90.   go Home
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 20 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=463 top=307 right=327 bottom=500
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 26635 / 26635
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: New Button
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   push card
  110.   Visual effect dissolve to white
  111.   go to card id 4298
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 21 (button)
  117. -- low flags: 00
  118. -- high flags: 0004
  119. -- rect: left=463 top=25 right=63 bottom=509
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 1007 / 1007
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Transfer Titles to Flap & Print
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   beep
  131.   put the userLevel into saveLevel
  132.   set the userLevel to 3
  133.   if the userLevel < 3 then exit mouseUp
  134.   if the freeSize of this stack > 0 then domenu "compact stack"
  135.   put field id 13 into temp1
  136.   put field id 14 into temp2
  137.   put field id 24 into temp3
  138.   choose select tool
  139.   drag from 5,70 to 168,101
  140.   domenu clear picture
  141.   choose text tool
  142.   click at 85,85
  143.   set textfont to geneva
  144.   set textsize to 12
  145.   set textalign to center
  146.   type temp1
  147.   choose select tool
  148.   drag from 5,70 to 168,88
  149.   domenu flip vertical
  150.   domenu flip horizontal
  151.   choose text tool
  152.   click at 88,100
  153.   set textfont to geneva
  154.   set textsize to 9
  155.   set textstyle to plain
  156.   set textalign to center
  157.   type temp1
  158.   choose select tool
  159.   drag from 173,68 to 341,101
  160.   domenu clear picture
  161.   choose text tool
  162.   click at 257,85
  163.   set textfont to geneva
  164.   set textsize to 12
  165.   set textalign to center
  166.   type temp2
  167.   choose select tool
  168.   drag from 173,68 to 341,91
  169.   domenu flip vertical
  170.   domenu flip horizontal
  171.   choose text tool
  172.   click at 257,100
  173.   set textfont to geneva
  174.   set textsize to 9
  175.   set textstyle to plain
  176.   set textalign to center
  177.   type temp2
  178.   choose select tool
  179.   drag from 343,68 to 512,102
  180.   domenu clear picture
  181.   choose text tool
  182.   click at 427,85
  183.   set textfont to geneva
  184.   set textsize to 12
  185.   set textalign to center
  186.   type temp3
  187.   choose select tool
  188.   drag from 343,68 to 511,91
  189.   domenu flip vertical
  190.   domenu flip horizontal
  191.   choose text tool
  192.   click at 427,100
  193.   set textfont to geneva
  194.   set textsize to 9
  195.   set textstyle to plain
  196.   set textalign to center
  197.   type temp3
  198.   choose browse tool
  199.   wait for 2 seconds
  200.   domenu print card
  201.   set the userLevel to saveLevel
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 24 (field)
  207. -- low flags: 00
  208. -- high flags: 0000
  209. -- rect: left=342 top=102 right=120 bottom=510
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: 
  218.  
  219.  
  220. -- part 25 (field)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=340 top=118 right=246 bottom=510
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 3
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: 
  232.  
  233.  
  234. -- part 30 (button)
  235. -- low flags: 00
  236. -- high flags: 8002
  237. -- rect: left=60 top=249 right=266 bottom=77
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: 1
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   beep
  249.   set textAlign of field id 5 to left
  250.   set textFont of field id 5 to Geneva
  251.   set textSize of field id 5 to 9
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 34 (button)
  257. -- low flags: 00
  258. -- high flags: 8002
  259. -- rect: left=85 top=249 right=266 bottom=101
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: 2
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   beep
  271.   set textAlign of field id 9 to left
  272.   set textFont of field id 9 to Geneva
  273.   set textSize of field id 9 to 9
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 38 (button)
  279. -- low flags: 00
  280. -- high flags: 8002
  281. -- rect: left=109 top=249 right=266 bottom=125
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: 3
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   beep
  293.   set textAlign of field id 25 to left
  294.   set textFont of field id 25 to Geneva
  295.   set textSize of field id 25 to 9
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 42 (button)
  301. -- low flags: 00
  302. -- high flags: 8002
  303. -- rect: left=154 top=249 right=266 bottom=171
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: 1
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   beep
  315.   set textAlign of field id 5 to left
  316.   set textFont of field id 5 to Geneva
  317.   set textSize of field id 5 to 12
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 43 (button)
  323. -- low flags: 00
  324. -- high flags: 8002
  325. -- rect: left=266 top=249 right=266 bottom=283
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 1
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   beep
  337.   set textAlign of field id 5 to center
  338.   set textFont of field id 5 to Geneva
  339.   set textSize of field id 5 to 9
  340. end mouseUp
  341.  
  342.  
  343.  
  344. -- part 44 (button)
  345. -- low flags: 00
  346. -- high flags: 8002
  347. -- rect: left=369 top=249 right=266 bottom=386
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: 1
  356. ----- HyperTalk script -----
  357. on mouseUp
  358.   beep
  359.   set textAlign of field id 5 to center
  360.   set textFont of field id 5 to Geneva
  361.   set textSize of field id 5 to 12
  362. end mouseUp
  363.  
  364.  
  365.  
  366. -- part 45 (button)
  367. -- low flags: 00
  368. -- high flags: 8002
  369. -- rect: left=181 top=249 right=266 bottom=197
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: 2
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   beep
  381.   set textAlign of field id 9 to left
  382.   set textFont of field id 9 to Geneva
  383.   set textSize of field id 9 to 12
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 46 (button)
  389. -- low flags: 00
  390. -- high flags: 8002
  391. -- rect: left=292 top=249 right=266 bottom=308
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: 2
  400. ----- HyperTalk script -----
  401. on mouseUp
  402.   beep
  403.   set textAlign of field id 9 to center
  404.   set textFont of field id 9 to Geneva
  405.   set textSize of field id 9 to 9
  406. end mouseUp
  407.  
  408.  
  409.  
  410. -- part 47 (button)
  411. -- low flags: 00
  412. -- high flags: 8002
  413. -- rect: left=397 top=249 right=266 bottom=413
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 1
  417. -- font id: 0
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: 2
  422. ----- HyperTalk script -----
  423. on mouseUp
  424.   beep
  425.   set textAlign of field id 9 to center
  426.   set textFont of field id 9 to Geneva
  427.   set textSize of field id 9 to 12
  428. end mouseUp
  429.  
  430.  
  431.  
  432. -- part 48 (button)
  433. -- low flags: 00
  434. -- high flags: 8002
  435. -- rect: left=208 top=249 right=266 bottom=224
  436. -- title width / last selected line: 0
  437. -- icon id / first selected line: 0 / 0
  438. -- text alignment: 1
  439. -- font id: 0
  440. -- text size: 12
  441. -- style flags: 0
  442. -- line height: 16
  443. -- part name: 3
  444. ----- HyperTalk script -----
  445. on mouseUp
  446.   beep
  447.   set textAlign of field id 25 to left
  448.   set textFont of field id 25 to Geneva
  449.   set textSize of field id 25 to 12
  450. end mouseUp
  451.  
  452.  
  453.  
  454. -- part 49 (button)
  455. -- low flags: 00
  456. -- high flags: 8002
  457. -- rect: left=318 top=248 right=265 bottom=334
  458. -- title width / last selected line: 0
  459. -- icon id / first selected line: 0 / 0
  460. -- text alignment: 1
  461. -- font id: 0
  462. -- text size: 12
  463. -- style flags: 0
  464. -- line height: 16
  465. -- part name: 3
  466. ----- HyperTalk script -----
  467. on mouseUp
  468.   beep
  469.   set textAlign of field id 25 to center
  470.   set textFont of field id 25 to Geneva
  471.   set textSize of field id 25 to 9
  472. end mouseUp
  473.  
  474.  
  475.  
  476. -- part 50 (button)
  477. -- low flags: 00
  478. -- high flags: 8002
  479. -- rect: left=423 top=249 right=266 bottom=439
  480. -- title width / last selected line: 0
  481. -- icon id / first selected line: 0 / 0
  482. -- text alignment: 1
  483. -- font id: 0
  484. -- text size: 12
  485. -- style flags: 0
  486. -- line height: 16
  487. -- part name: 3
  488. ----- HyperTalk script -----
  489. on mouseUp
  490.   beep
  491.   set textAlign of field id 25 to center
  492.   set textFont of field id 25 to Geneva
  493.   set textSize of field id 25 to 12
  494. end mouseUp
  495.  
  496.  
  497.  
  498. -- part 52 (button)
  499. -- low flags: 00
  500. -- high flags: 0000
  501. -- rect: left=10 top=301 right=340 bottom=53
  502. -- title width / last selected line: 0
  503. -- icon id / first selected line: 0 / 0
  504. -- text alignment: 1
  505. -- font id: 0
  506. -- text size: 12
  507. -- style flags: 0
  508. -- line height: 16
  509. -- part name: Erase Card
  510. ----- HyperTalk script -----
  511. on mouseUp
  512.   beep
  513.   put the userLevel into saveLevel
  514.   set the userLevel to 3
  515.   if the userLevel < 3 then exit mouseUp
  516.   if the freeSize of this stack > 0 then domenu "compact stack"
  517.   choose select tool
  518.   drag from 2,68 to 171,101
  519.   domenu clear picture
  520.   choose select tool
  521.   drag from 173,68 to 341,101
  522.   domenu clear picture
  523.   choose select tool
  524.   drag from 343,68 to 512,101
  525.   domenu clear picture
  526.   put "" into field 1
  527.   put "" into field 2
  528.   put "" into field 3
  529.   put "" into field 4
  530.   put "" into field 5
  531.   put "" into field 6
  532.   set the cursor to 1
  533.   tabkey
  534.   set the userLevel to saveLevel
  535.  
  536. end mouseUp
  537.  
  538.  
  539.  
  540. -- part 53 (button)
  541. -- low flags: 00
  542. -- high flags: 0000
  543. -- rect: left=452 top=249 right=295 bottom=505
  544. -- title width / last selected line: 0
  545. -- icon id / first selected line: 0 / 0
  546. -- text alignment: 1
  547. -- font id: 0
  548. -- text size: 12
  549. -- style flags: 0
  550. -- line height: 16
  551. -- part name: Prev
  552. ----- HyperTalk script -----
  553. on mouseUp
  554.   if the freeSize of this stack > 0 then domenu "compact stack"
  555.   push card
  556.   visual effect dissolve
  557.   go to card id 6479
  558.   set the cursor to 1
  559.   tabkey
  560. end mouseUp
  561.  
  562.